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Tos Distribution 
From: Steve Herbst 
Subject: Mail subroutines 


Dates: 10/4774 


Secure mail makes it feasible to allow privileged users such 
as IQ0.SysDaemon and Backup.SysDaemon tc send mail. <A new 
subroutine called send_mail. sends an ASCII message, with or 
without an accompanying wakeup, to the ring | mailbox used by 
secure mail (See MTR-064 on secure mail and messages). User 
programs can call this subroutine,: as can system programs that 
nave need to inform people that requests have been performed. 
Future mail sending and interprocess message sending commands 

will be based on send_mail_. 


A feature of send_mail_ is the ability to send by name alone 
when no project id is specified. To do this send_mail_ calls the 
entry mail_table_$lookup, which returns a mailbox pathname for a 
given registered user. | | 


Users are listed voluntarily in the segment mail_table, 
whicn nas the following format? | 


dcl | mail table based (mail _table_ptr), 
2 version fixed bin(l/) aligned, 
2 current_size fixed bin(l/) aligned, 
2 area area ((sys_info_Smax_seg_size))% 


del | table_entry based (tablep)3; 


2 person char (22), 
2 alias char (8), 
2 ds char (12), 
2 mbx length fixed bin(l7/), 
2 he_length fixed bin(17), 
2 mbx char (mbxl refer mnbx_length), 
2 he char (hel refer he_length)$ 
person is the user’s registered person id. 
alias is his registered alias. 
ds is a default destination for dprinting listings 
to the user. 
mb x is the absolute pathname ending in .mbx of a 


mailbox or link to a mailbox. 
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he is a default dprint header. 


mail_table.nt is assured at system start up time by an answering 
service call to the entry mail_table_Sexists. If necessary, 
mail_table_Sexists creates a nash table by a call to hash_$make 
and creates a segment mail_table containing an initialized area. 
It allocates, for every PNT entry, an entry in mail_table with 
the following default information: 


person = id in PNT 
alias = alias in PNT 
mbox = >udd>default_project>id>id.mbx 


When the answering service makes certain changes to the PNT, 
such as adding a new person or changing a default project, it 
calls the add, delete or update entry in mail_table_. 
Administrative commands also exist to change mail_table 
information. 


Writeups of the new subroutines and commands follow: 


Name: send_mail_ 


The send _mail_ subroutine sends one piece of mail to one 
user. 


Usage | 
. dcl send_mail_ entry (char(*), cnar(*), char(*), 
ptr, fixed bin(35))$3 
call send_mail_ (name, project, message, s_potr, code)3 
1) name is the recipient’s person_id. 


2) project is the recipient’s project_id. (See Notes) 
3) message is the ASCII message. 


4) s_ptr is a pointer to the following structure, to 
comprise the beginning of the added message? 


del | mail structure aligned, 

2 version fixed bin(l/), /* = 1 */ 
2 sent_from char(32) aligned, 

2 lines fixed bin(17), 
2 switches, 

3 wakeup bit(l) unaligned, 

3 urgent bit(i) unaligned, 

3 has_been_read bit(l) unaligned, 

3 acknowledge bit(1) unaligned, 

3 pad bit(32) unaligned init ("0"b);3 


5) code is a standard status code, for example: 


error_table_S$user_not_found 
Not found in mail table. 
error_table_Snoentry 
Mailbox does not exist. 
error_table_$no_info 
No information can be returned about recipient. 


Notes 
The mailbox pathname is >udd>pro ject>name>name.mbx. 


When project is "", ‘the pathname of a default mailbox is 
obtained by calling mail_table_$lookup. 


Information on how to send is in mail_structure and is 
stored with the message so that it can be read. Tne wakeup bit, 
for example, tells send_mail_ when to send a wakeup and tells the 
mail and message reading conmands which messages to print. 


pad in mail _structure should always be zero to allow for 
defining new bits. 


Name: mail_table_ 


Tnis module manages tne data base mail_table, which contains 
information useful tor sending mail and dprinting listings to 


USerse 
Entry: exists 


This entry cnecks wnetner mail_table and mail_table.nt exist 
and if not, creates then. Sexists is usually called by the 
answering service. 


Usage 
dcl mail_table_sexists entry 
(ptr, bit(*), rixed bjin(35))3 
call mail_table_Sexisits (ansp, switches, seygname, code) 3 
1) ansp is a pointer to the answer table. (Input) 


2) switches (Output): 


made_one mail _table and mail_table.nt were 
created. 
old_one there was an old mailutable. lnis Switchn 


is on only when made_one is on. 


new_one a copy of mail_table exists because there 
is no access to write the original. 


fatal_error a fatal error is reflected in code. A 
tatal error is something like the PNT 
being the wrong version. 


3) seqname is tne name of the segment referred to by code if 
code is non-zero and new_one is off. If new_one is 
on, segname is the name of the copy. (Uulput) 


4+) code is a normal status code. 


Entry: lookup 


This entry returns information from mail table “given a 
user’s registered person id or alias as a lookup name. 


Usage 
dcl mail_table_$lookup entry 
(char(*), ptr, fixed bin(35))3 
call mail_table_$lookup (name, argp, code) $ 
1) name is a registered person id or a registered alias. 
(Input) 
2) argp is a pointer to the following structure in which 
information is returned: 
dcl | args based (argp), 
2 version fixed bin(l/), 
2 person char (22), 
2 alias char (8), 
2 mbx char (168), 
2 ds char (12), 
2 he char (44)$3 
Every. version -mail_table has a different args 
structure. (Input) 
3) code is a standard status code, usually either zero or 
error_table_Suser_not_found. (Output) 
Eolrys add 


This entry adds a user to mail_table. 


Usage 
del mail_table_$add entry (ptr, fixed bin(35))3 


call mail_table_Sadd (argp, code)$ 
1) argp is a pointer to the above args structure. (Input) 
2) code is a standard status code. error_table_S$namedaup 
indicates that an entry for person already exists and 


the caller must use the delete or update entry. 
(Output) 


Entry: delete 


This entry deletes a user from mail_table. 


1) name 


2) code 


call mail_table_Sdelete (name, code)3 


is a registered person ia or alias. 


is a standard status code. (Output) 


tntiry: update 


dcl mail_table_Sdelete entry (char(*), code)3 


(Input) 


Tnis entry updates selective information in mail_table for a 
particular user. 


Usage 


1) name 
2) argp 
3) code 
Noles 


If 
updated 


dcl mail_table_S$update entry 


(char(*), ptr, 


call mail_table_$update (name, argp, code) 
is a registered person id or alias. 


is a pointer to the args structure. 


fixed bin(35))3 


is a standard status code. (Qutput) 


a field in the args structure is 
in nail_table. 
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Name? mail_table_lookup, mil 


The mail _table_lookup command returns’ information 
mail_table given a user’s registered person id or alias. 


Usage 
mail_table_lookup name -control_arg- 

1) name is a registered persor. id or alias. 

Control Argument 

~all print the following information? 
Person registered person id 
Alias registered alias | 
mai lbox pathname of default mailbox 
Destination default dprint destination 
Header default dprint header 


Default is to print only Mailbox. 


Name: mail_table_add, mta 


from 


The administrative command mail _table_add adds a user to 


mail table. 


Usage | 
mail_table_add person alias -control args- 


1) person is a registered person id, maximum of 22 characters. 


2) alias is the registered alias, maximum of 8 characters. 
Control _ Arguments 
-mailbox path path is the patnname of a default 
-mbx path mailbox. If tne suffix “.mbx" is 
not present, it is assumed. 
-destination string String is a default destination 
-ds string | for the dprint command, no longer 
tnan |I2 characters. 
-header string string is a default neader for 
-he string the dprint command, no longer 


tnan 64 characters. 


Note 


Any fields not specified by control arguments are set to "", 


Name: nail_table_delete, mtd 


The administrative command mail_table_delete removes a 


from mail tahle. 
a wot oS a ad 
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Usage 

mail_table_delete name 
1) name is a registered person id or alias. 
Note 


An error message is printed if no entry for name exists. 


Name: mail_table_update, mtu 


user 


The administrative command mail_table_update updates 


information in mail _table for a particular user. 


Usage 


mail_table_update name ~-control args- 


1) name is a registered person id or alias. 

Control Arguments 

~mailbox patn patn is the pathname of a default 

—-mbx patn mailbox. If the suffix ".mbx" is 
not present, it is assumed. 

-destination string string is a default destination 

-ds string for tne dprint command, no longer 
ehan I2 characters. 

~header string string is a default header for 

“he string tne dprint command, no longer 


than 64 characters. 
Notes 


Any fields not specified by control arguments’ are 
updated. 


This command cannot replace the person id or alias. 


not 


